(prompt 'Where do you want to copy the directory for the FKM?')
(help @askdir-help)
(default 'Work:')
)
'FKM'
)
)
(set @default-dest ziel)
(copyfiles
(prompt (cat 'The file \"FKM\" will be copied to \"' ziel '\".'))
(help @copyfiles-help)
(source quel)
(dest ziel)
(pattern 'FKM engl')
(files)
(infos)
)
(complete 20)
(rename
(tackon ziel 'FKM engl')
(tackon ziel 'FKM')
(prompt 'The file \"FKM engl\" will be renamed to \"FKM\".')
(help @rename-help)
)
(rename
(tackon ziel 'FKM engl.info')
(tackon ziel 'FKM.info')
(prompt 'The file \"FKM engl.info\" will be renamed to \"FKM.info\".')
(help @rename-help)
)
(complete 25)
(copyfiles
(prompt (cat 'The file \"FKM.guide\" (the online-help and manual of the FKM) will be copied to \"' ziel '\".'))
(help @copyfiles-help)
(source (tackon quel 'Docs English'))
(dest ziel)
(pattern 'FKM engl.guide')
(files)
(infos)
)
(complete 45)
(rename
(tackon ziel 'FKM engl.guide')
(tackon ziel 'FKM.guide')
(prompt 'The file \"FKM engl.guide\" will be renamed to \"FKM.guide\".')
(help @rename-help)
)
(rename
(tackon ziel 'FKM engl.guide.info')
(tackon ziel 'FKM.guide.info')
(prompt 'The file \"FKM engl.guide.info\" will be renamed to \"FKM.guide.info\".')
(help @rename-help)
)
(complete 50)
(copyfiles
(prompt 'Do you want to copy the file \"FKM-Bild\"\n(the title-picture of the FKM)?\nOn 68000 based Amigas the loading of the title-picture will take a while.\nSo the FKM will also run without this picture.')
(help @copyfiles-help)
(source quel)
(dest ziel)
(pattern 'FKM-Bild')
(files)
(confirm)
)
(complete 75)
(copylib
(prompt 'The AmigaGuide-library will be copied to LIBS: if it is necessary.')
(help @copylib-help)
(source (tackon quel 'libs/amigaguide.library'))
(dest 'LIBS:');
)
(complete 100)
(exit 'The Demoversion of the FKM v1.32 was installed successfully!\n\nHave fun with the FKM!\nStefan Thomé');